home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / B-Business / (c)b3.d64 / checkbook.c (.txt) < prev    next >
Commodore BASIC  |  2008-11-26  |  17KB  |  535 lines
  1. 50 REM*****************************
  2. 51 REM**      CHECKBOOK          **
  3. 52 REM**                         **
  4. 53 REM**     GABRIEL EGRI        **
  5. 54 REM**  3 ECCLESTON DRIVE      **
  6. 55 REM**      SUITE #103         **
  7. 56 REM**     TORONTO, ONT.       **
  8. 57 REM**        M4A 1J9          **
  9. 58 REM*****************************
  10. 59 REM
  11. 60 REM
  12. 120 R$="***":I=9:V=1:PRINTCHR$(142):GOSUB15000
  13. 180 PRINT"[145][145][145][145][145][145][145][145][145]"TAB(15)" DEPOSIT      ":PRINTTAB(15)" WITHDRAWAL   "
  14. 190 PRINTTAB(15)" WRITE CHEQUE ":PRINTTAB(15)" PAY BILLS    "
  15. 200 PRINTTAB(15)" ADJUSTMENTS  ":PRINTTAB(15)" ZERO ACCOUNT "
  16. 210 PRINTTAB(15)" VIEW BOOK    ":PRINTTAB(15)" READ BALANCE "
  17. 215 PRINTTAB(15)" MORE MENU    "
  18. 220 GETM$:IFM$<"1"ORM$>"9"THEN220
  19. 225 POKE53281,1
  20. 230 M=VAL(M$):ONMGOTO1000,2000,3000,4000,5000,6000,7000,8000,10000
  21. 315 PRINT"[147]"SPC(123)"[213][195][201][157][157][157][202][195][203][145][157][157][157][221]O[221]NE AT A TIME"
  22. 320 PRINTSPC(217)"-OR-"
  23. 325 PRINTSPC(225)"[213][195][201][157][157][157][202][195][203][145][157][157][157][221]S[221]CROLL"
  24. 330 GETM$:IFM$<>"O"ANDM$<>"S"THEN330
  25. 335 IFM$="S"THEN350
  26. 340 GOTO5400
  27. 350 POKE53280,0:POKE53281,0:PRINT"[147]":TR=1:L$="":FORX=1TO40:L$=L$+"[195]":NEXT
  28. 351 OPEN8,8,8,"0:TRCOUNTER,S,R"
  29. 352 INPUT#8,T$:CLOSE8:LI=VAL(T$)-1
  30. 355 TR$=STR$(TR):FR$="TR#"+TR$:OPEN3,8,3,"0:"+FR$+",S,R"
  31. 360 INPUT#3,MO$,D$,A$,R$,TT$,CB$
  32. 362 CLOSE3
  33. 365 PRINT""FR$
  34. 370 PRINT""MO$" "D$TAB(9)TT$TAB(20)A$TAB(30)"[153]"CB$:PRINT""R$
  35. 372 PRINTL$"[145]"
  36. 375 TR=TR+1:IFTR/4=INT(TR/4)THEN700
  37. 376 IFTR>LITHENPRINT"END OF RECORDS":GOTO700
  38. 380 GOTO355
  39. 385 TR=1:Y=0
  40. 390 OPEN8,8,8,"0:TRCOUNTER,S,R"
  41. 395 INPUT#8,T$:CLOSE8:LI=VAL(T$)-1
  42. 400 TR$=STR$(TR):FR$="TR#"+TR$:OPEN3,8,3,"0:"+FR$+",S,R"
  43. 405 INPUT#3,MO$,D$,A$,R$,TT$,CB$
  44. 410 CLOSE3
  45. 415 OPEN4,4
  46. 417 IFYTHEN425
  47. 420 PRINT#4,CHR$(16)"08DATE"CHR$(16)"16TYPE"CHR$(16)"27AMOUNT";
  48. 421 PRINT#4,CHR$(16)"38BALANCE"CHR$(16)"50COMMENTS"
  49. 422 PRINT#4:PRINT#4
  50. 425 PRINT#4,FR$CHR$(16)"08"MO$" "D$CHR$(16)"16"TT$CHR$(16)"27"A$CHR$(16)"38"CB$;
  51. 430 PRINT#4,CHR$(16)"49"R$
  52. 440 TR=TR+1:Y=Y+1:IFTR>LITHENFORX=0TO4:PRINT#4,CHR$(10):NEXT:CLOSE4:GOTO120
  53. 450 CLOSE4:GOTO400
  54. 455 PRINT"[213][195][195][195][201][157][157][157][157][157]     [157][157][157][157][157][202][195][195][195][203]"                  "
  55. 460 [153]"(null)LENLENRIGHT$CMDCMDCMDCMD  CMDCMDCMDCMDMID$LENLEN(null)"
  56. 470 [153][166]57)"(null)TANTANTANTANTANTANTANTANRIGHT$CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDMID$LENLENLENLENLENLENLENLEN(null)"
  57. 480 [153][166]49)"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
  58. 490 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  59. 699 [142]
  60. 700 [153]"WAITPRESS SPACEBAR"
  61. 710 [161]M$:[139]M$[179][177]" "[167]710
  62. 715 [139]TR[177]LI[167]120
  63. 717 [153]"ON                                 "
  64. 720 [137]355
  65. 800 [133]"";MO$:MO$[178][200](MO$,3)
  66. 810 [139][200](MO$,1)[178]"_"[167]1900
  67. 820 V[178]1:[129]X[178]1[164]12:[135]MV$:[139]MO$[178]MV$[167]V[178]0
  68. 830 [130]:[140]:[139]V[167]MO$[178]"":[137]800
  69. 840 [133]"";D$
  70. 850 [139][200](D$,1)[178]"_"[167]1900
  71. 860 D[178][197](D$):[139][195](D$)[179][177]2[176]D[179]1[176]D[177]31[167]D$[178]"":[137]840
  72. 870 [133]"";A$
  73. 880 [139][200](A$,1)[178]"_"[167]1900
  74. 890 [139][195](A$)[179]3[167]A$[178]"":[137]870
  75. 900 AV$[178][201](A$,3):[139][200](AV$,1)[179][177]"."[167]A$[178]"":[137]870
  76. 910 [142]
  77. 950 [153]"STOPPLEASE WAIT":[142]
  78. 1000 [143] DEPOSIT ROUTINE
  79. 1002 [151]53281,1:[153]"LOAD"
  80. 1004 TT$[178]"DEPOSIT"
  81. 1005 [153]"         "
  82. 1010 [153]" DEPOSIT "
  83. 1015 [153]"         "
  84. 1020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:":[153]"REMARKS:"
  85. 1022 [141]455
  86. 1025 [153]"*  *  *"
  87. 1027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
  88. 1030 [141]800
  89. 1110 [133]"";R$:[139][195](R$)[177]24[167]1110
  90. 1120 [139][200](R$,1)[178]"_"[167]1900
  91. 1130 [153]"READY TO SAVE? Y/N"
  92. 1140 [161]S$:[139]S$[178]""[167]1140
  93. 1150 [139]S$[179][177]"Y"[167]1900
  94. 1155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]A[170]OB:CB$[178][196](CB)
  95. 1160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
  96. 1170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
  97. 1175 [152]3,TT$:[152]3,CB$:[160]3
  98. 1180 B$[178]OB$:R$[178]"***"
  99. 1190 A[178][197](A$):B[178][197](B$):B[178]B[170]A:B$[178][196](B)
  100. 1200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
  101. 1210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6:[137]1900
  102. 1300 [151]53281,12:[151]53280,6:[153]"LOADCHEQUE FILES"
  103. 1310 [153]"STOP(null)TANTANLENLENTANTANTANTANRIGHT$":[153]"(null)(null)":[153]"MID$TANLENLENTANTANLENTANTAN(null)"
  104. 1320 [153][163]22)"ONONON(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$":[153][163]22)"ON(null)(null)"
  105. 1330 [153][163]22)"ONMID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  106. 1340 [153][163]12)"(null)LENLENLENLENLENLENRIGHT$":[153][163]12)"(null)(null)":[153][163]12)"MID$LENLENLENLENLENLEN(null)"
  107. 1350 [153]"AMOUNT :"
  108. 1360 [153]"BALANCE:"
  109. 1370 [153]"NOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTNOTSTOP"
  110. 1380 [142]
  111. 1400 [153]""[166]204)RF$;
  112. 1410 [153][166]15)TT$:[153][166]173)MO$" "D$
  113. 1510 [153][166]171)A$
  114. 1520 [153][166]51)CB$:[153]""R$
  115. 1530 [153]"STOPPRESS SPACEBAR"
  116. 1600 [142]
  117. 1610 LH$[178][201](CB$,3)
  118. 1620 [139][202](LH$,2,1)[179][177]"."[175][202](LH$,1,1)[179][177]"."[167]CB$[178]CB$[170]".00":[142]
  119. 1630 [139][202](LH$,2,1)[178]"."[167]CB$[178]CB$[170]"0"
  120. 1640 [142]
  121. 1900 R$[178]"":A$[178]"":D$[178]"":MO$[178]"":[137]120
  122. 2000 [143] WITHDRAWAL ROUTINE
  123. 2002 [151]53281,1:[153]"LOAD"
  124. 2004 TT$[178]"WITHDRAW"
  125. 2005 [153]"            "
  126. 2010 [153]" WITHDRAWAL "
  127. 2015 [153]"            "
  128. 2020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:":[153]"REMARKS:"
  129. 2022 [141]455
  130. 2025 [153]"*  *  *"
  131. 2027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
  132. 2030 [141]800
  133. 2065 [139][200](D$,1)[178]"_"[167]1900
  134. 2110 [133]"";R$:[139][195](R$)[177]24[167]2110
  135. 2120 [139][200](R$,1)[178]"_"[167]1900
  136. 2130 [153]"READY TO SAVE? Y/N"
  137. 2140 [161]S$:[139]S$[178]""[167]2140
  138. 2150 [139]S$[179][177]"Y"[167]1900
  139. 2155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]OB[171]A:CB$[178][196](CB)
  140. 2160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
  141. 2170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
  142. 2175 [152]3,TT$:[152]3,CB$:[160]3
  143. 2180 B$[178]OB$
  144. 2190 A[178][197](A$):B[178][197](B$):B[178]B[171]A:B$[178][196](B)
  145. 2200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
  146. 2210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6
  147. 2900 R$[178]"":A$[178]"":D$[178]"":MO$[178]"":[137]120
  148. 3000 [143] WRITE CHECQUE ROUTINE
  149. 3002 [151]53281,1:[153]"LOAD"
  150. 3004 TT$[178]"CHEQUE"
  151. 3005 [153]"         "
  152. 3010 [153]" CHEQUES "
  153. 3015 [153]"         "
  154. 3020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:":[153]"PAYABLE:"
  155. 3022 [141]455
  156. 3025 [153]"*  *  *"
  157. 3027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
  158. 3030 [141]800
  159. 3110 [133]"";R$:[139][195](R$)[177]24[167]3110
  160. 3120 [139][200](R$,1)[178]"_"[167]1900
  161. 3130 [153]"READY TO SAVE? Y/N"
  162. 3140 [161]S$:[139]S$[178]""[167]3140
  163. 3150 [139]S$[179][177]"Y"[167]1900
  164. 3155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]OB[171]A:CB$[178][196](CB)
  165. 3160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
  166. 3170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
  167. 3175 [152]3,TT$:[152]3,CB$:[160]3
  168. 3180 B$[178]OB$
  169. 3190 A[178][197](A$):B[178][197](B$):B[178]B[171]A:B$[178][196](B)
  170. 3200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
  171. 3210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6
  172. 3900 R$[178]"":A$[178]"":D$[178]"":MO$[178]"":[137]120
  173. 4000 [143] PAY UTILITY BILLS ROUTINE
  174. 4002 [151]53281,1:[153]"LOAD"
  175. 4004 TT$[178]"UTILITY"
  176. 4005 [153]"                 "
  177. 4010 [153]" UTILITY BILLS   "
  178. 4015 [153]"                 "
  179. 4020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:":[153]"PAYABLE:"
  180. 4022 [141]455
  181. 4025 [153]"*  *  *"
  182. 4027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
  183. 4030 [141]800
  184. 4110 [133]"";R$:[139][195](R$)[177]24[167]4110
  185. 4120 [139][200](R$,1)[178]"_"[167]1900
  186. 4130 [153]"READY TO SAVE? Y/N"
  187. 4140 [161]S$:[139]S$[178]""[167]4140
  188. 4150 [139]S$[179][177]"Y"[167]1900
  189. 4155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]OB[171]A:CB$[178][196](CB)
  190. 4160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
  191. 4170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
  192. 4175 [152]3,TT$:[152]3,CB$:[160]3
  193. 4180 B$[178]OB$
  194. 4190 A[178][197](A$):B[178][197](B$):B[178]B[171]A:B$[178][196](B)
  195. 4200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
  196. 4210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6
  197. 4900 R$[178]"":A$[178]"":D$[178]"":MO$[178]"":[137]120
  198. 5000 [143] ADJUSTMENT ROUTINE
  199. 5002 [151]53281,1:[153]"LOAD"
  200. 5004 TT$[178]"ADJUST"
  201. 5005 [153]"             "
  202. 5010 [153]" ADJUSTMENTS "
  203. 5015 [153]"             "
  204. 5020 [153]"POKEMONTH:":[153]"DAY:":[153]"AMOUNT:(+OR-)":[153]"REMARKS:"
  205. 5022 [141]455
  206. 5025 [153]"*  *  *"
  207. 5027 [141]12000:[153]"TR#"T$:[143] PICKUP TR#
  208. 5030 [141]800
  209. 5110 [133]"";R$:[139][195](R$)[177]24[167]5110
  210. 5120 [139][200](R$,1)[178]"_"[167]1900
  211. 5130 [153]"OK TO RECORD? Y/N"
  212. 5140 [161]S$:[139]S$[178]""[167]5140
  213. 5150 [139]S$[179][177]"Y"[167]1900
  214. 5155 [141]950:OB[178][197](OB$):A[178][197](A$):CB[178]A[170]OB:CB$[178][196](CB)
  215. 5160 T[178][197](T$):T$[178]""[170][196](T):FW$[178]"TR#"[170]T$:[159]3,8,3,"0:"[170]FW$[170]",S,W"
  216. 5170 [152]3,MO$:[152]3,D$:[152]3,A$:[152]3,R$
  217. 5175 [152]3,TT$:[152]3,CB$:[160]3
  218. 5180 [159]4,8,4,"0:BALANCE,S,R":[132]4,B$:[160]4
  219. 5190 A[178][197](A$):B[178][197](B$):B[178]B[170]A:B$[178][196](B)
  220. 5200 [159]5,8,5,"@0:BALANCE,S,W":[152]5,B$:[160]5
  221. 5210 T[178]T[170]1:T$[178][196](T):[159]6,8,6,"@0:TRCOUNTER,S,W":[152]6,T$:[160]6
  222. 5220 [137]1900
  223. 5250 [153]"LOADSELECT FILE RETRIEVAL MODE"
  224. 5260 [153]"(null)LENRIGHT$"
  225. 5270 [153]"(null)A(null)LL"
  226. 5280 [153]"MID$LEN(null)"
  227. 5290 [153][163]11)"(null)LENRIGHT$"
  228. 5300 [153][163]11)"(null)R(null)ECENT"
  229. 5310 [153][163]11)"MID$LEN(null)"
  230. 5320 [153][163]22)"(null)LENRIGHT$"
  231. 5330 [153][163]22)"(null)S(null)ELECTIVE"
  232. 5340 [153][163]22)"MID$LEN(null)"
  233. 5350 [161]M$:[139]M$[178]""[167]5350
  234. 5360 [139]M$[178]"A"[167]315
  235. 5370 [139]M$[178]"R"[167]5600
  236. 5380 [139]M$[178]"S"[167]5800
  237. 5390 [137]5350
  238. 5400 [141]1300
  239. 5410 [159]3,8,3,"0:TRCOUNTER,S,R"
  240. 5415 [132]3,LI$:[160]3
  241. 5420 LI[178][197](LI$):X[178]1:[139]LI[178]1[167]5470
  242. 5425 X$[178][196](X):RF$[178]"TR#"[170]X$:
  243. 5430 [159]4,8,4,"0:"[170]RF$[170]",S,R"
  244. 5435 [132]4,MO$:[132]4,D$:[132]4,A$:[132]4,R$:[132]4,TT$:[132]4,CB$
  245. 5440 [160]4:[141]1610
  246. 5445 [141]1400
  247. 5450 [161]M$:[139]M$[179][177]" "[167]5450
  248. 5455 X[178]X[170]1:[139]X[178]LI[167][153]"LOADEND OF FILES":[137]9000
  249. 5460 [153]"LOAD":[141]1300:[137]5425
  250. 5470 [153]"LOAD"[166]250)"NO FILES ON DISK!"
  251. 5480 [129]W[178]1[164]2000:[130]
  252. 5499 [137]120
  253. 5600 [143] VIEW MOST RECENT FILES ROUTINE
  254. 5605 [151]53281,1:[153]"LOADSTOP"[166]123)"THIS ROUTINE WILL DISPLAY THE";
  255. 5610 [153]" MOST       RECENT -N- RECORDS, WHERE -N- IS"
  256. 5615 [153]"EQUAL TO THE NUMBER OF RECORDS"
  257. 5620 [153][163]15)"DISPLAYED.":[153][166]80)"E.G.CMD IF N=20 THEN THE MOST";
  258. 5625 [153]" RECENT 20 "[166]53)"RECORDS ARE DISPLAYED."
  259. 5626 [159]3,8,3,"0:TRCOUNTER,S,R":[132]3,T$:[160]3:T[178][197](T$):NF[178]T[171]1
  260. 5630 [133]"STOPINPUT N";N
  261. 5635 [139]N[177]NF[167][153]"THERE ARE ONLY "NF" FILES":[129]W[178]1[164]4000:[130]:[137]5600
  262. 5640 X[178]NF[171]N[170]1:X$[178][196](X):[139]X[178]T[171]1[175]BG[178]1[167]BG[178]0:[137]5642
  263. 5641 BG[178]1:[137]5645
  264. 5642 [153]"LOADEND OF FILES":[137]9000
  265. 5645 X$[178][196](X):RF$[178]"TR#"[170]X$:[159]4,8,4,"0:"[170]RF$[170]",S,R"
  266. 5650 [132]4,MO$:[132]4,D$:[132]4,A$:[132]4,R$:[132]4,TT$:[132]4,CB$
  267. 5655 [160]4:[141]1610:[153]"LOAD":[141]1300:[141]1400
  268. 5657 [161]M$:[139]M$[179][177]" "[167]5657
  269. 5660 X[178]X[170]1:[139]X[177]NF[167]5670
  270. 5665 [137]5645
  271. 5670 [153]"LOADEND OF FILES":[137]9000
  272. 5800 [153]"LOADTHIS ROUTINE WILL DISPLAY ONE";
  273. 5810 [153]"            TRANSACTION OF YOUR CHOICE."
  274. 5820 [153][166]250)[166]72)"INPUT TR# OF TRANSACTION YOU WANT";
  275. 5830 [153][166]58)"DISPLAYED."
  276. 5840 [159]3,8,3,"O:TRCOUNTER,S,R"
  277. 5850 [132]3,T$:[160]3
  278. 5860 T[178][197](T$):NF[178]T[171]1
  279. 5870 [133] "INPUT TR#";N
  280. 5880 [139]N[177]NF[167]5900
  281. 5890 [137]5930
  282. 5900 [129]X[178]1[164]6:[153]"THERE ARE ONLY "NF"FILES"
  283. 5910 [129]W[178]1[164]500:[130]:[153]"ON                                   "
  284. 5920 [129]W[178]1[164]300:[130]W,X:[137]5800
  285. 5930 N$[178][196](N):RF$[178]"TR#"[170]N$:[159]4,8,4,"0:"[170]RF$[170]",S,R"
  286. 5940 [132]4,MO$:[132]4,D$:[132]4,A$:[132]4,R$:[132]4,TT$:[132]4,CB$
  287. 5950 [160]4:[141]1610:[153]"LOAD":[141]1300:[141]1400
  288. 5960 [161]M$:[139]M$[179][177]" "[167]5960
  289. 5970 [137]120
  290. 6000 [143] ZERO ACCOUNT ROUTINE
  291. 6002 [151]53281,1:[153]"LOAD"
  292. 6005 [153]"              "
  293. 6010 [153]" ZERO ACCOUNT "
  294. 6015 [153]"              "
  295. 6020 [153]"WARNING"
  296. 6030 [153]"THIS ROUTINE WILL WIPE ALL YOUR RECORDS FROM THE DISK AND";
  297. 6035 [153]" RESET THE BALANCE TO  ZERO."
  298. 6040 [153]"DO YOU WISH TO PROCEED? Y/N"
  299. 6050 [161]S$:[139]S$[178]""[167]6050
  300. 6060 [139]S$[179][177]"Y"[167]1900
  301. 6070 [153]"IF YOU'RE SURE THEN TYPE THE WORD "[199](34)"ZERO"[199](34)
  302. 6080 [153]"ONUSRUSRUSRUSR"
  303. 6090 [133]"";Z$
  304. 6100 [139]Z$[179][177]"ZERO"[167]1900
  305. 6105 [153]"POKEPLEASE WAIT"
  306. 6110 [159]15,8,15,"S0:TR#*":[160]15
  307. 6120 [159]3,8,3,"@0:TRCOUNTER,S,W"
  308. 6130 [152]3,"1":[160]3
  309. 6140 [159]4,8,4,"@0:BALANCE,S,W"
  310. 6150 [152]4,"0":[160]4
  311. 6999 [137]1900
  312. 7000 [143] VIEW BOOK ROUTINE
  313. 7002 [151]53281,1:[153]"LOAD"
  314. 7005 [153]"           "
  315. 7010 [153]" VIEW BOOK "
  316. 7015 [153]"           "
  317. 7020 [153]"PLEASE SELECT:"
  318. 7030 [153]"STOP(null)LENRIGHT$"
  319. 7040 [153]"(null)S(null)CREEN"
  320. 7050 [153]"MID$LEN(null)"
  321. 7060 [153]""[163]17)"- OR -"
  322. 7070 [153]""[163]25)"(null)LENRIGHT$"
  323. 7080 [153][163]25)"(null)P(null)RINTER"
  324. 7090 [153][163]25)"MID$LEN(null)
  325. 7100 GETM$:IFM$<>"S"ANDM$<>"P"THEN7100
  326. 7110 IFM$="P"THEN385
  327. 7120 IFM$="S"THEN5250
  328. 8000 REM *** CHECK BALANCE ROUTINE ***
  329. 8010 POKE53281,1:PRINT"[147]READ  BALANCE"
  330. 8020 PRINT"[184][184][184][184][184][184][184][184][184][184][184][184][184]"
  331. 8030 PRINT"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
  332. 8040 [129]X[178]1[164]3:[153]"(null)(null)":[130]
  333. 8050 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  334. 8060 [153]"ONONON$"
  335. 8070 [153][166]221)"PLEASE WAIT....."
  336. 8080 [159]8,8,8,"0:BALANCE,S,R"
  337. 8090 [132]8,B:[160]8:CB$[178][196](B):[141]1610
  338. 8100 [153]""CB$
  339. 8110 [153]"PRESS SPACEBAR TO CONTINUEWAIT      "
  340. 8120 [161]M$:[139]M$[179][177]" "[167]8120
  341. 8130 [137]120
  342. 9000 [129]W[178]1[164]3000:[130]:[137]120
  343. 10000 [143] MORE MENU
  344. 10010 I[178]5:[141]15000
  345. 10020 [153]""[163]15)" FORMAT DISK   "
  346. 10030 [153][163]15)" CANCEL LAST TR"
  347. 10040 [153][163]15)" *   HELP   *  "
  348. 10050 [153][163]15)" EXIT TO BASIC "
  349. 10060 [153][163]15)" FIRST MENU    "
  350. 10070 [161]M$:[139]M$[179]"1"[176]M$[177]"5"[167]10070
  351. 10080 M[178][197](M$):[145]M[137]16000,17000,18000,19000,120
  352. 10999 [144]
  353. 12000 [159]8,8,8,"0:TRCOUNTER,S,R"
  354. 12010 [132]8,T$:[160]8
  355. 12020 [159]9,8,9,"0:BALANCE,S,R"
  356. 12022 T[178][197](T$):[139]T[179]105[167]12030
  357. 12024 [160]9:[153]"LOADDISK FULL OF DATA"
  358. 12026 [153]"PLEASE INSERT NEW DISK FOR FORMATTING":[128]
  359. 12030 [132]9,OB$:[160]9:[142]
  360. 15000 [143] DRAW MENU TABLOID
  361. 15010 [151]53281,7:[151]53280,2:[153]"LOADSTOP"
  362. 15020 H$[178]"***CHECKBOOK***":[153]H$
  363. 15030 [153]"S E L E C T   T R A N S A C T I O NWAITSTOP"
  364. 15040 [153]"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
  365. 15050 [129]X[178]1[164]I:[153]"(null)(null)(null)":[130]
  366. 15060 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  367. 15070 [153]"":[129]X[178]1[164]I:[153][163]11)X:[130]:[142]
  368. 16000 [143] FORMATTING ROUTINE
  369. 16002 [151]53281,1:[153]"LOAD"
  370. 16005 [153]"                 "
  371. 16010 [153]" FORMAT NEW DISK "
  372. 16015 [153]"                 "
  373. 16020 [153]"STOPENTER DISK NAME"
  374. 16030 [153]"(null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$"
  375. 16040 [153]"(null)               (null)"
  376. 16050 [153]"MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)"
  377. 16080 [153]"ONON";:G[178]1:DN$[178]""
  378. 16090 [161]G$:[139]G$[178]""[167]16090
  379. 16095 [153]G$;:[139]G$[178][199](13)[167]16150
  380. 16100 DN$[178]DN$[170]G$:G[178]G[170]1
  381. 16110 [139]G[177]15[167]16150
  382. 16120 [137]16090
  383. 16150 [153]"" [163]24)"ONONONID"
  384. 16160 [153][163]23)"(null)LENLENRIGHT$"
  385. 16170 [153][163]23)"(null)  (null)":[153][163]23)"MID$LENLEN(null)";
  386. 16180 [153]"ONCMDCMDCMD";
  387. 16190 G$[178]"":ID$[178]"":[129]G[178]0[164]1:[161]G$:ID$[178]ID$[170]G$:[153]G$;:[130]
  388. 16193 [129]G[178]0[164]1
  389. 16195 [161]G$:[139]G$[178]""[176]G$[178][199](13)[167]16195
  390. 16197 ID$[178]ID$[170]G$:[153]G$;:[130]:[153]
  391. 16200 [153]" (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
  392. 16210 [153]"(null)    INSERT NEW DISK IN DRIVE!    STOP(null)"
  393. 16220 [153]"(null)    PRESS "[199](34)"*"[199](34)" WHEN READYSTOP(null)"
  394. 16230 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  395. 16240 [153]"  ** PRESS SPACEBAR TO ABORT ROUTINE **"
  396. 16250 [161]M$:[139]M$[179][177]" "[175]M$[179][177][199](42)[167]16250
  397. 16260 [139]M$[178]" "[167]120
  398. 16270 [153]"STOPPLEASE WAIT"
  399. 16280 [159]15,8,15,"N0:"[170]DN$[170]","[170]ID$
  400. 16290 [160]15
  401. 16300 [148]"CHECKBOOK",8
  402. 16310 [159]3,8,3,"0:BALANCE,S,W"
  403. 16320 [152]3,"0":[160]3
  404. 16330 [159]4,8,4,"0:TRCOUNTER,S,W"
  405. 16340 [152]4,"1":[160]4
  406. 16350 [137]120
  407. 17000 [143] CANCEL LAST TR ROUTINE
  408. 17010 [151]53281,1:[153]"LOAD*** CAUTION ***"
  409. 17020 [153]"STOPTHIS ROUTINE WILL ERASE THE LAST"
  410. 17025 [153]"TRANSACTION ON YOUR";
  411. 17030 [153]" DISK AND WILLRESET THE BALANCE TO WHAT IT WAS"
  412. 17040 [153]"PRIOR TO THE LAST TRANSACTION."
  413. 17045 [153]"* * *"
  414. 17047 [153]"POKEDO YOU WISH TO PROCEED?   Y/N"
  415. 17050 [161]M$:[139]M$[178]""[167]17050
  416. 17060 [139]M$[178]"Y"[167]17080
  417. 17070 [137]120
  418. 17080 [153]"POKEPLEASE WAIT"
  419. 17110 [159]4,8,4,"0:TRCOUNTER,S,R"
  420. 17120 [132]4,T$:[160]4
  421. 17130 TC$[178]T$:T[178][197](T$):T[178]T[171]2:T$[178][196](T)
  422. 17131 [139]T[179]1[167]17133
  423. 17132 [137]17139
  424. 17133 [151]53281,1:[153]"LOADTHERE RE NOT ENOUGH FILES TO USE"
  425. 17134 [153]"THIS ROUTINE. PLEASE USE "[199](34)"ZERO"
  426. 17135 [153]"ACCOUNT"[199](34)" ROUTINE.":[153][166]252)"PRESS SPACEBAR"
  427. 17136 [161]M$:[139]M$[179][177]" "[167]17136
  428. 17138 [137]120
  429. 17139 C$[178]"TR#":FI$[178]C$[170]T$
  430. 17140 [159]5,8,5,"0:"[170]FI$[170]",S,R"
  431. 17150 [129]X[178]0[164]5:[132]5,CB$:[130]:[160]5
  432. 17160 [159]6,8,6,"@0:BALANCE,S,W"
  433. 17170 [152]6,CB$:[160]6
  434. 17180 T[178]T[170]1:T$[178][196](T)
  435. 17190 FI$[178]C$[170]T$
  436. 17200 [159]15,8,15,"S0:"[170]FI$
  437. 17210 [160]15
  438. 17220 TC[178][197](TC$):TC[178]TC[171]1:TC$[178][196](TC)
  439. 17330 [159]7,8,7,"@0:TRCOUNTER,S,W"
  440. 17440 [152]7,TC$:[160]7
  441. 17550 [137]120
  442. 18000 [151]53281,1:[151]53280,7
  443. 18005 [153]"LOAD"[166]53)"HELP SCREENS":[153][166]13)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  444. 18007 [153]"FORMAT DISKCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  445. 18010 [153]"   BEFORE YOU CAN USE "[199](34)"CHECKBOOK"[199](34)", YOU"
  446. 18020 [153]"MUST PLACE A BLANK DATA DISK IN THE"
  447. 18030 [153]"DRIVE AND FORMAT IT WITH THE HELP OF"
  448. 18040 [153]"THE DISK FORMAT ROUTINE. ACCESS THIS"
  449. 18050 [153]"ROUTINE  FROM LINE 1  ON THE  SECOND"
  450. 18060 [153]"MENU PAGE."
  451. 18070 [153]"ANSWER THE PROMPT: "[199](34)"ENTER DISK NAME"[199](34)
  452. 18080 [153]"WITH ANY NAME  OF YOUR CHOICE  TO A"
  453. 18090 [153]"MAXIMUM OF 15 CHARACTERS.   THE "[199](34)"ID"[199](34)
  454. 18100 [153]"MUST CONSIST OF 2 CHARACTERS."
  455. 18110 [153]"TO AVOID  DAMAGE TO YOUR  DATA DISK,"
  456. 18120 [153]"DO NOT INTERFERE WITH THE FORMATTING"
  457. 18130 [153]"PROCESS --- JUST WAIT."
  458. 18140 [141]18900
  459. 18150 [153]"LOADFORMAT DISK (CONT.)CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  460. 18160 [153]"WHEN FORMATTING IS COMPLETED, THE"
  461. 18170 [153]"PROGRAM WILL BE DUPLICATED ON THE"
  462. 18180 [153]"NEW DISK,  AND MAY BE LOADED FROM"
  463. 18190 [153]"THIS DISK IN THE FUTURE."
  464. 18191 [153]"IT IS ADVISABLE TO STORE THE ORI-"
  465. 18192 [153]"GINAL DISK IN A SAFE PLACE AND"
  466. 18193 [153]"PERFORM ALL FUTURE DUPLICATIONS FROM"
  467. 18194 [153]"AN IN-USE DATA DISKETTE.":[141]18900
  468. 18200 [153]"LOADDEPOSITS - WITHDRAWALS "
  469. 18210 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  470. 18220 [153][163]9)"CHEQUES - BILLS - ADJUSTMENTS"
  471. 18230 [153][163]9)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  472. 18240 [153]"AS SOON AS YOU ENTER THESE ROUTINES"
  473. 18250 [153]"THE TR#  (TRANSACTION NUMBER)  WILL"
  474. 18260 [153]"APPEAR NEAR THE  UPPER-RIGHT CORNER"
  475. 18270 [153]"OF THE SCREEN. THIS IS THE FILENAME"
  476. 18280 [153]"UNDER WHICH YOUR FILE WILL BE STORED."
  477. 18290 [153]"ONYOU NEED NOT WORRY: IT'S AUTOMATIC."
  478. 18300 [153]"MONTHS MUST BE ENTERED BY THEIR"
  479. 18310 [153]"FIRST THREE LETTERS: I.E. FEB,APR,"
  480. 18315 [153]"JUL, OCT, ETC."
  481. 18320 [153]"AMOUNTS MUST BE IN DOLLARS AND CENTS:"
  482. 18330 [153]"ONI.E. 32.00 INSTEAD OF 32."
  483. 18340 [153]"TO ABORT A TRANSACTION USE THE LEFT"
  484. 18350 [153]"ARROW (_) AS A RESPONSE TO A PROMPT.":[141]18900
  485. 18360 [153]"LOADLOOKING AT YOUR ACCOUNT"
  486. 18370 [153]"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR"
  487. 18380 [153]"THE "[199](34)"VIEW BOOK"[199](34)" OPTION BRANCHES"
  488. 18390 [153]"INTO SEVERAL SUBROUTINES"
  489. 18400 [153]"PRINTER WILL PRINT OUT ALL FILES"
  490. 18410 [153]"ON THE DATA DISK IN NEAT COLUMNS"
  491. 18420 [153]"SCREEN BRANCHES INTO OTHER"
  492. 18430 [153]"OPTIONS AS DESCRIBED BELOW."
  493. 18440 [153]"ALL WILL DISPLAY EVERY FILE ON"
  494. 18450 [153]"DISK IN SCROLL OR ONE AT A TIME.
  495. 18460 PRINT"RECENT WILL DISPLAY THE LATEST FILES."
  496. 18470 PRINT"SELECTIVE WILL ALLOW USER TO CALL"
  497. 18480 PRINT"A SPECIFIC FILE BY ITS TR#.":GOSUB18900
  498. 18490 PRINT"[147]CORRECTING ERRORS[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  499. 18500 PRINT"THERE ARE 2 WAYS TO CORRECT MISTAKES."
  500. 18510 PRINT"[145]YOU MAY USE THE CANCEL LAST TR OPTION"
  501. 18520 PRINT"[145]ON THE SECOND MENU PAGE TO DELETE THE"
  502. 18530 PRINT"[145]MOST RECENT FILE ONLY, OR USE THE"
  503. 18540 PRINT"ADJUSTMENTS OPTION WITH EITHER A"
  504. 18550 PRINT"POSITIVE (+) OR NEGATIVE (-) AMOUNT"
  505. 18560 PRINT"TO ADJUST THE BALANCE OF THE ACCOUNT."
  506. 18570 PRINT"NOTE: THE LATTER WILL NOT ERASE"
  507. 18580 PRINT"FILES. YOU MAY RECORD UNDER 'REMARKS'"
  508. 18590 PRINT"[145]THE NATURE OF THE ADJUSTMENT.":GOSUB18900
  509. 18600 PRINT"[147]OTHER MENU OPTIONS[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  510. 18610 PRINT"ZERO ACCOUNT DELETES ALL FILES"
  511. 18620 PRINT"ON DISK, AND RESETS BALANCE"
  512. 18630 PRINT"TO $0.00 (ZERO) BUT LEAVES THE"
  513. 18640 PRINT"PROGRAM INTACT."
  514. 18650 PRINT"READ BALANCE DISPLAYS THE CURRENT"
  515. 18660 PRINT"BALANCE ON THE MONITOR SCREEN."
  516. 18670 PRINT"FOR INQUIRIES ABOUT THIS PROGRAM,"
  517. 18680 PRINT"WRITE TO:"
  518. 18690 PRINTTAB(10)"GABRIEL EGRI"
  519. 18700 PRINTTAB(10)"3 ECCLESTON DRIVE"
  520. 18710 PRINTTAB(10)"SUITE #103"
  521. 18720 PRINTTAB(10)"TORONTO, ONT."
  522. 18730 PRINTTAB(10)"M4A 1J9":GOSUB18900
  523. 18899 GOTO120
  524. 18900 PRINT"HIT ANY KEY"
  525. 18910 GETX$:IFX$=""THEN18900
  526. 18920 RETURN
  527. 19000 POKE53281,1:PRINT"[147]"SPC(130)"*** CAUTION ***
  528. 19010 [153]"THIS ROUTINE WILL ERASE THE PROGRAM FROMCOMPUTER MEMORY";
  529. 19020 [153]" BUT WILL  NOT AFFECT THEPROGRAM OR RECORDS ON THE DISK."
  530. 19030 [153]"DO YOU WISH TO PROCEED?   Y/N"
  531. 19040 [161]M$:[139]M$[178]""[167]19040
  532. 19050 [139]M$[178]"Y"[167][158]64738
  533. 19060 [137]1900
  534. 20000 [131]JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC
  535.